home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / dateprog(d) (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  63 lines
  1. 10 DATAEDINBURGH,GLASGOW,DUNDEE,ABERDEEN
  2. 20 DATAFOOTBALL,TENNIS,HILLWALKING,OPERA,JAZZ,ROCK,THEATRE,READING,POLITICS
  3. 30 DATACHESS,GAMBLING,HORSERACING,CARS,MOTORBIKES,CYCLING,MEETING PEOPLE
  4. 40 DATACONSERVATIVE,LABOUR,LIBERAL,SDP,OTHER,NONE
  5. 50 PRINT"[147]INERT DATA DISK"
  6. 60 PRINT"PRESS SPACE[146] WHEN READY."
  7. 70 GETE$:IFE$<>" "THEN70
  8. 80 OPEN1,8,15,"I"
  9. 90 OPEN2,8,2,"COMPUTER DATES,SEQ,READ"
  10. 100 DIMP$(26)
  11. 110 FORJ=1TO26:READP$(J):NEXT
  12. 120 PRINT"[147]COMPUTER DATING"
  13. 130 PRINT"WHAT TOWN ?"
  14. 140 A1=1:B1=4:GOSUB 450: XT$=P1$
  15. 150 PRINT"[147]WHAT IS YOUR MAIN INTEREST?"
  16. 160 A1=5:B1=20:GOSUB450:XH$=P1$
  17. 170 PRINT"[147]WHAT IS YOUR SECOND INTEREST?"
  18. 180 A1=5:B1=20:GOSUB450:XI$=P1$
  19. 190 PRINT"[147]WHAT ARE YOUR POLITICS?"
  20. 200 A1=21:B1=26:GOSUB450:XP$=P1$
  21. 210 PRINT:PRINT"ARE YOU MALE OR FEMALE (SAY M OR F)
  22. 220 [133] XS$
  23. 230 [139] XS$[179][177]"M" [175] XS$[179][177]"F" [167] 210
  24. 240 [153]:[133] "WHAT IS YOUR AGE";XA
  25. 250 [153]:[133]"HEIGHT IN INCHES";XH
  26. 260 M[178][171]100:[153]"LOAD";
  27. 270 [132]2,C$,A$,T$,S$,A,H,H1$,H2$,PO$
  28. 280 [139] ST [179][177]0 [167] 420
  29. 290 [139] T$[179][177]XT$ [176] S$ [178] XS$ [167] 270
  30. 300 S[178]0
  31. 310 D[178]XA[171]A:[139] XS$[178]"F"[167] D[178][171]D:[143] D=MALE'S AGE - FEMALE'S AGE
  32. 320 [139] D [177][178] 0 [175] D [179][178] 4 [167] S[178]S[170]5
  33. 330 D[178]CH[171]H: [139] XS$[178]"F" [167] D[178][171]D:[143] D = MALE'S HEIGHT - FEMALE'S HEIGHT
  34. 340 [139] D[177][178]1 [175] D[179][178] 3 [167] S[178]S[170]3
  35. 350 [139] XH$[178]H1$ [176] XH$[178]H2$ [167] S[178]S[170]6
  36. 360 [139] XI$[178]H1$ [176] XI$[178]H2$ [167] S[178]S[170]6
  37. 370 [139] XP$[178]PO$ [167] S[178]S[170]4
  38. 380 [139] XP$[178]"CONSERVATIVE" [175] PO$[178]"LABOUR" [167] S[178]S[171]2
  39. 390 [139] PO$[178]"CONSERVATIVE" [175] XP$[178]"LABOUR" [167] S[178]S[171]2
  40. 400 [139] S[177][178] M [167] M[178]S: [153]"LOADBEST SOLUTION SO FAR":[141] 530:[153]"SCORE=";S
  41. 410 [137] 270
  42. 420 [139] ST[179][177]64 [167] [153] "FILE READ ERROR"
  43. 430 [160]2:[160]1
  44. 440 [153]:[153]"THIS IS THE BEST DATE WE CAN FIND": [144]
  45. 450 [143] DISPLAY MENU A1 TO B1 OF P$. SELECT A WORD AND RETURN IN P1$
  46. 460 JJ[178]1:[153]
  47. 470 [129]KK[178]A1 [164] B1
  48. 480 [153]JJ;">";P$(KK):JJ[178]JJ[170]1
  49. 490 [130]KK:[153]
  50. 500 [133]"CHOOSE A NUMBER";LL:LL[178][181](LL)
  51. 510 [139] LL[179]1 [176]LL [177] B1[171]A1[170]1 [167] 460
  52. 520 P1$[178]P$(LL[170]A1[171]1):[142]
  53. 530 [143] DISPLAY PERSON
  54. 540 [153]"NAME: ";C$
  55. 550 [153]"ADDRESS: ";A$
  56. 560 [153]"TOWN: ";T$
  57. 570 [153] "AGE: ";A
  58. 580 [153]"HEIGHT: ",H
  59. 590 [153]"HOBBIES: ";H1$
  60. 600 [153]"         ";H2$
  61. 610 [153]"POLITICS: ";PO$
  62. 620 [142]
  63.